Top 10k strings from Control de Stocks (1984)(DIMensionNEW - Idealogic)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
   2 Q$=D$(C)+"   "+I$(C)+"  "+""+J$(C)+W$(C)+" "+C$(C)+" ":
   2 C$(C);F$(C);" ";G$(C);" ";H$(C)
   2 ;"pulsa una opcion":
   2 ;"pulsa una letra para seguir":
   2 ;"codigo no valido":
   2 ;"LISTADO PROVEEDORES"
   2                                                                                                                                                                                                             
   1 w$(i)=w$(i+1
   1 tt=p-(p*dd/100
   1 tmn=tm-(tm*ww/100
   1 stocks    s
   1 rutina ?otra busqueda
   1 rmt=tmn+(tmn*rm/100
   1 q$=c$(c)+" "+e$(c)+" "+p$+""+y$+" "+o$+"    "+u$+" "+t$+"          "
   1 q$="PROVEEDOR      DIRECCION     CIUDAD    TELEFONO    ARTICULO     "
   1 q$="PED.   PROVEEDOR     ARTICULO      CANT.    PRECIO   FECHA     ":
   1 pulsa una letra para volvel al  menu 
   1 n$="         "
   1 modificaciones
   1 listado proveedores
   1 listado articulos
   1 l$(c)="            "
   1 j$(i)=j$(i+1
   1 i$(i)=i$(i+1
   1 h$(i)=h$(i+1
   1 g$(i)=g$(i+1
   1 f$(i)=f$(i+1
   1 f$(i)="      "
   1 el programa esta correctamente   grabado.
   1 e$(i)=e$(i+1
   1 dado de baja"
   1 d$(i)=d$(i+1
   1 control stocks
   1 c/m       ,
   1 c.c/m     ,
   1 c+"      "+l$(c)+"  "+m$(c)+"  "+n$(c)+"   "+s$(c)+"   "+r$(c)+"  "
   1 c$(i)=c$(i+1
   1 c         
   1 REGULARIZACIONES
   1 Q$=C$(C)+D$(C)+" "+I$(C)+J$(C)+W$(C)+A$+"     "
   1 Q$="PROVEEDOR      DIRECCION     CIUDAD    TELEFONO    ARTICULO     ":
   1 Q$="ARTICULO    PROVEEDOR   DIRECCION   CIUDAD    TELEFONO  CANTIDAD ":
   1 Q$="ARTICULO     P.UNI. UNI.  PRECIO. DTO. PRE.ART. PRECIO TOTAL      ":
   1 ORIGINAL TAPE / NOT D.L.
   1 LTAS ARTICULOS"
   1 LISTADO ARTICULOS
   1 I$="microinformatica":
   1 I$="al maximo tu ORDENADOR":
   1 I$="GESTION COMPRAS":
   1 I$="FACTURACION":
   1 I$="CONTROL STOCKS":
   1 I$=" a tu servicio para aprovechar ":
   1 I$="   DIMensionNEW":
   1 FACTURACION
   1 DIMensionNew / IDEALOGIC S.A.
   1 CONTROL DE STOCKS
   1 C/ Valencia, 85 
   1 ARTICULO     P.UNI. UNI.  PRECIO. DTO. PRE.ART. PRECIO TOTAL      K
   1 ALTAS ARTICULOS
   1 ;C$(C);" ";F$(C);" ";G$(C);" ";H$(C):
   1 ;"tiene descuento total ?(s/n)":
   1 ;"tiene descuento ?(s/n)":
   1 ;"son correctos los datos nuevos ? (s/n)                       ":
   1 ;"reg.libres,";" ";250
   1 ;"rebobina para verificar,si no lo deseas para el programa y haz  GO TO 20."
   1 ;"que deseas  ?":
   1 ;"que campo deseas modificar ?                               ":
   1 ;"pulsa una letra para seguir.                        ":
   1 ;"pulsa una letra para seguir       ":
   1 ;"pulsa C para hacer pedido,      cualquier letra para seguir":
   1 ;"pulsa B para dar de baja":
   1 ;"preparate,voy a grabar":
   1 ;"porque campo busco ?":
   1 ;"otro registro de pedido ? (s/n)":
   1 ;"otro producto ? (s/n)":
   1 ;"otra busqueda ?(s/n)         ":
   1 ;"no quedan fichas libres":
   1 ;"no lo encuentro          ":
   1 ;"es el registro que deseas       modificar ?(s/n)":
   1 ;"entrada o salida ?(e/s)":
   1 ;"entrada no numerica         ":
   1 ;"deseas registrar algun pedido ? (s/n)":
   1 ;"deseas otra modificacion ?(s/n)                              ":
   1 ;"deseas otra factura ?(s/n)    ":
   1 ;"deseas otra busqueda ?(s/n)":
   1 ;"deseas otra baja ?(s/n)     ":
   1 ;"deseas otra alta ?(s/n)":
   1 ;"deseas copia ?(s/n)         ":
   1 ;"deseas cargar ITE o IVA ?(s/n)":
   1 ;"datos correctos ?(s/n)":
   1 ;"articulo corecto ?(s/n)":
   1 ;"VERIFICACION":
   1 ;"STOCKS BAJO MINIMOS."
   1 ;"REVISION STOCKS"
   1 ;"RELACION PEDIDOS":
   1 ;"REGULARIZACIONES"
   1 ;"REGULARIZACION      "
   1 ;"PEDIDOS - FECHA     "
   1 ;"MODIFICACIONES"
   1 ;"MODIFICACIONES      "
   1 ;"LISTADO PROVEEDORES "
   1 ;"LISTADO ARTICULOS   "
   1 ;"GRABACION"
   1 ;"GRABACION           "
   1 ;"Factura :";fac,"fecha :";x$
   1 ;"FACTURACION"
   1 ;"FACTURACION         "
   1 ;"DEBES HACER PEDIDO DE......":
   1 ;"DEBES HACER PEDIDO DE ......"
   1 ;"CONTROL STOCKS"
   1 ;"CONTROL STOCKS      "
   1 ;"BUSQUEDA PROVEEDOR"
   1 ;"BUSQUEDA DIRECTA ARTICULO"
   1 ;"BAJAS ARTICULOS     "
   1 ;"ARTICULO.   EXIS.  S.MIN. S.OPT."
   1 ;"ARTICULO    EXIS.  S.MIN. S.OPT.":
   1 ;"ALTAS ARTICULOS     "
   1 ;"3.-STOCK ARTICULO CONCRETO."
   1 ;"2.-BUSCAR UNO CONCRETO"
   1 ;"2.-BAJO MINIMOS."
   1 ;"1.-REVISION STOKS."
   1 ;"1.-LISTADO DE TODOS ELLOS"
   1 ;"  MENU  "
   1 ;"          "
   1 ;"           buscando                                           "
   1 6.STOCK OPT"
   1 5.STOCK MIN"
   1 4.EXISTENC "
   1 3.PRECIO   "
   1 1.ARTICULO
   1 0IDEALOGIC S.A.
   1 08029 Barcelona 
   1 '';"imp.= +";rm;" % ";"total=";rmt
   1 ''';"dto,= -";ww;" %=";"precio neto= ";tmn:
   1 "introduce unidades a facturar     ";b$
   1 "introduce su telefono";w$(i):
   1 "introduce su direccion";i$(i):
   1 "introduce su ciudad";j$(i):
   1 "introduce stock optimo ";h$(i):
   1 "introduce stock minimo";g$(i):
   1 "introduce proveedor";d$(i):
   1 "introduce precio";e$(i):
   1 "introduce impuestos a cargar";b$
   1 "introduce fecha factura";x$:
   1 "introduce existencias";f$(i):
   1 "introduce descuento";o$
   1 "introduce descuento total ";b$
   1 "introduce datos a buscar";b$
   1 "introduce articulo";c$(i):
   1 "introduce articulo";b$
   1 "imp.= +";rm;" % ";" total = ";rmt
   1 "entra regularizacion ";b$
   1 "entra proveedor";l$(jj)
   1 "entra precio";s$(jj)
   1 "entra modificacion";b$
   1 "entra fecha";r$(jj)
   1 "entra cantidad";n$(jj)
   1 "entra articulo";m$(jj)
   1 "entra articulo a buscar";b$
   1 "dto,= -";ww;" % = ";"precio neto =";tmn
   1 "Factura :";fac,"Fecha :";x$
   1 "ARTICULO.   EXI.  
   1  a tu servicio para aprovechar 
   1  DIMensionNEW 1984        Deposito Legal B-23540/84
   1  DIMensionNEW "
   1   CONTROL STOCKS 
   1          I
   1                                                                                                       b
   1                                                                                                                                         
   1